RRRRRRRRRRRR 
RRRRRRRRRRRR 
RRRRRRRRRRRR 
RRR FR 
RRR RRR 
RRR RRR 
RRR RRR 
RRR RRR 
RRR RRR 
RRRRRRRRRRRR 
RRRRRRRRRRRR 
RRRRRRRRRRRR 
RRR = RRR 

RRR = RRR 

RRR = RRR 

RRR RRR 
RRR RRR 
RRR RRR 
RRR RRR 
RRR RRR 
RRR RRR 


a a a a a a a a a a tt a st st st st tt 
St st st St St Ht 
Att ta 4 tt SH St HH Ht tt 


PPPPPPPPPPPP 
PPPPPPPPPPPP 


PPPPPPPPPPPP 
PPPPPPPPPPPP 
PPPPPPPPPPPP 


PPPPPPPPPPPP 
P P 


AAAAAAAAA 

AAAAAAAAA 

AAAAAAAAA 
ARR 
AAA AAA 
AAA AAA 
AAA AAA 
AAA AAA 
A AAA 
AAA AAA 
AAA AAA 
AAA AAA 
AAAAAAAAAAAAAAA 
AAAAAAAAAAAAAAA 
AAAAAAAAAAAAAAA 
AAA AAA 
AAA AAA 
AAA AAA 
AAA AAA 
AAA AAA 
AAA AAA 


DDDDDDDDDDDD 

DDDDDDDDDDDD 

DDDDDDDDDDDD 

DDD DOD 
DDD DOD 
DOD DOD 
DOD DOD 
DDD DDD 
DDD DOD 
DDD DOD 
DDD DDD 
DDD DDD 
DOD DDD 
DDD DOD 
DDD DOD 
DOD DOD 
DDD DDD 
DOD DDD 
DDDDDDDDDDDD 

DDDDDDDDDDDD 


DDDDDDDDDDDD 


*eF I LE**1DeeCTSETRT 


ee ee ee ee oe 
ee eo 
— 
= 
7 
ee 


T RRRRRRRR 
T RRRRRRRR 
RR 
RR 
RR 


eee 


oe 
od 

oe 

— 

ww ww 
wu wu 
ww uw wu 
ww wu wu 
wu wu wus 
ww wu wu 
ww wu www 
wu wu wu 


WU UL 
dds dd a as a as ss 


nn NNMNM 
nn YNNM 
nw nn nn 
nn nw nn 
nn nw nn 
mw nw nn 
nw nn nw 
mw mn nw 
YNNMNNM nn 
NANMNM "nw 
=o 
ao 
od 


od 
ee ee 
ee ee roo 


od 
re 

od 

J 

wv vv 
vv pare) 
vv Vv 
vv Vv 
pays) vv 
vv vv 
vv Vv 
vv vev 


VYVVVYUYUYUY 
VBEYVYVYUUYUYUYUY 


nw AMMnM 
nn “wn nn 
“wn nw nn 
“nw nw nw 
nw “wn “nn 
mn nn nn 
mn nn nn 
MWWn nw 
MMMM mn 
ee — 
ee = 


Liem iene 
lied ee 
aa 
=e) 
=) 
~—) 
a4 
=) 
=) 
a4 
ee 
ee ee ee err) 


CTSETRT 

Table of contents 
(2) 67 
{3} 298 


1 12 
- RTPAD/CTERM SET CHARACTERISTICS 
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= RTPAD/CTERM SET CHARACTERISTICS ae tat bs 90: 14:28 rate Ma 


RTPAD = 1 
-IF DF RTPAD 


gro v04-00 
-MAR-19 9:4 RTPAD.SRCJCTSETRT.MAR; 1 


; Define to generate Rtpad module 
-TITLE CTSETRT = RTPAD/CTERM SET CHARACTERISTICS 
-TITLE CTOSENSE = CTDRIVER SENSE MODE PROCESSING 


NDC 


+ 
+ 


-IDENT 'V04-000' 
-ENABLE SUPPRESSION 


COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
ONLY IN ACCORDANCE WITH THE TERMS SUCH LICENSE AND WITH THE 
INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
Paasisecnecoe” NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
CORPORAT io NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONS "7 


IBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH 


LIT 
S NOT SUPPLIED BY DIGITAL. 


tARARARARAASAASALALARALASAASLELALEASAASELESASSASER SSE SERS ESSERE ARERR ARRAS ES OS 


FACILITY: 


CTERM Remote terminal protocol driver 


ABSTRACT: 


This module is called to map a characteristics item list received 
from the net into VMS terminal characteristics. 


ENVIRONMENT: 


AUTHOR: Jake VanNoy, CREATION DATE: 23-Aug-1982 
MODIFIED BY: 


SOOO OCOOOOOCOCOOS OOOO OSOSSSSSSOoooooooooooooooooooooOoOoOoOOOOOOO 
DIAN O ODNAMNE WIN  O OO NAMES WIN $9 OO NAME WIN CO ODONOU LEWIN OWOONOUS Wh 


PVPS VIVE BS BB BB EE EAA ANN NII NII AI POPONINPIPPONIN 2 OO Oo 


SOOoOooooooooooooooo 


v03-003 JLV0336 Jake 


VanNo 28-F EB-1984 
Use constant names in SENSETAB table. 
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mm GHEE BALE WMG MRCP A 


t 3 
34 ; v03-002 JLv0288 Jak oy 28-JUL-1983 
20 ; Update symbols that. ident) y characteristics. 
61: v03-001 JLV0261 Jake VanNoy 26-MAY-1983 
3 6 ¢ : Change baud rate tables to new format. 
0 64 jee 
00 65 
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= RIPAD/CTERM SET CHARACTERISTICS 16-SEP-1984 02:11:58 VAX/VM 
y0e-000 DECLARATIONS reeks BSi1Li3k PAAYMS Ma 


.SBTTL DECLARATIONS 
: INCLUDE FILES: 


ro V04-00 Page 3 
RTPAD.SRCJCTDSENSE.MAR; 1 (2) 


: for protocol errors 


3; MACROS: 

«MACRO CHAR LABEL 
«WORD type e'char_co 

«WORD CAREC NSE "ROOTIN 

char_count = char_count + 

-ENDM = CHAR 


-MACRO —— BPS 


sOvis TT$C_BAUD_ ‘BPS’ 
-ENDM BAUDTAB 


OOOO 090909 090909 09 09 0909 SIN NII NIN NNIOOO 


0 .MACRO TERMTAB TERM, VALUE 
.BYTE VALUE 
-ASCIC /TERM/ 
.ENDM = TERMTAB 


NOUS WN $$ OOONAUES WN 0 OONOUS WN O0OOon 


DOOOOOSOOSOSOSOOOSOSOOOOOOOOOOOSoOO 


: OWN STORAGE: 


-IF DF RTPAD 
-PSECT RTPAD,NOWRT 


EXTERNAL OUTBAND_NEW 


SOoQoooooooooooooooooooooooooooooooocoooooooooooooooo 


0 
0 
: 
0 8 .MACRO on hee CHAR 
0 9 ORD char_type!char 
0 100 .ENDM SENSETAB 
0 101 
3 it 
00 104 : EQUATED SYMBOLS: 
00 106° 
00000000 0 1 ; phys tcot = ch$c mAh ; O leftshifted 1 byte 
0000010 3 1 3 ogical = ch$c_logicalas 3: 1 leftshifted 1 byte 
0000020 : 3 cterm = ch$c_ctermas 3: 2 leftshifted 1 byte 
111 TT.BUF = 0 
00009 O02 1 § TT_CHAR1 = 4 
00000 113 TT_CHAR2 = 8 
00000000 : 2 TT_I0SB = 0 
1 
00 I 
0 118 
119 
120 
! 1 
138 
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- RTPAD/CTER 16-SEP-1984 02:11: AX/VMS Mecro v04-00 Page 4 
DECLARATIONS met be: 4):38 RTPAD.SRCJCTDSENSE .MAR; 1 . (2) 
124 .IFF 
! 5 -PSECT $$$115_DRIVER,LONG 
! -ENDC 
: SENSE_TABLE: 
00000000 000 131 char_type = physical 
90000001 000 132 charscount #1" 
0 1 CHAR INPUT_SPEED , 7 
04 134 CHAR OUTPUT_SPEED 3 ¢ 
be 135 CHAR CHARACTER SIZE é 
¢ 1 $ CHAR PARITY_ENABLE 3 4 
it 1 CHAR PARITY_TYPE 3 $ 
014 138 CHAR MODEM_PRESENT : 6 
0018 139 CHAR AUTOBAUD DETECT 3: 7 
boss 140 CHAR MANAGEMERT_GUARANTEED 3: 8 
00 141 CHAR SWITCH _CHAR_1 : 9 
0024 136 CHAR SWITCH_CHAR_2 3 10 
0028 14 
00000100 00 144 char_type = logical 
00000001 + 122 char_count = 1 
0028 143 CHAR MODE _WRITING ALLOWED : 7 
002C 148 CHAR -TERMINAL_TYPE : é 
0030 149 CHAR TERMINAL_ SUBTYPE 3 
0034 150 CHAR OUTPUT_FCOW_CONTROL 3: 4 
0038 151 CHAR OUTPUT PAGE STOP 3 > 
003C 138 CHAR FLOW CRAR_PASS THRU 36 
0040 15 CHAR INPUT_FLOQ@_CONTROL $7 
0044 154 CHAR LOSS_ROTIFICATION 3 8 
0048 155 CHAR LINEWIDTH : 9 
004C 156 CHAR PAGE_LENGTH 3 10 
0050 157 CHAR STOP_LENGTH 3 11 
0054 158 CHAR CR_FILL 3 \¢ 
0058 159 CHAR LF FILL 37 
005C 160 CHAR WRAP : 14 
0060 161 CHAR HORIZONTAL_TAB s 15 
0064 16¢ CHAR VERTICAL_TAB 3; 16 
4 19 CHAR FORM_FEED : 17 
00000200 006C 165 char_type = cterm 
00000001 BoeE 166 char_count = 1 
dee 168 CHAR —_—-IGNORE_INPUT :1 | 
0 199 CHAR CHAR_ATTRIBUTES : ¢ 
074 170 CHAR CONTROL_O PASS_THRU 3 
078 171 CHAR RAISE_IRPOT 7 4 
07C 17 CHAR NORMAC_ECHO 3; 5 
080 17 CHAR INPUT_ESCAPE_ENABLE : 6 
° 4 174 CHAR OUTPUT_ESCAPE_ENABLE ee 
8 175 CHAR INPUT COUNT_STATE : 8 
‘ 176 CHAR AU R 3; 9 
a Ht CHAR ERROR_PROCESSING : 10 
FFFF 94 155 -WORD -1 :; End of List (any negative number) 
0096 180 
} 


"Si$Ep=1986 08:14:35 ERtpapssmeicrosensesmar;1 "29 (3) 
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DECLARATIONS 


; Table must be in ascending order 
; Table is in order for most Likely first 
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CTSETRI ~ RTPAD/CTERM SET CHARACTERISTICS 16=SEP=1984 02:11:58 YAX/VMS Macro V04-00 p 
SSEp=1984 09:14:35 TSE ie 


D/CTER r 
v04-000 DECLARATIONS § RTPAD.SRCICTDSENSE .MAR; 1 

15D 3 

15D 8 BYTE TP$C_MT_READ_CHAR 3; message type 

150 539 "BYTE eee eh es, te 

15D 240 

18> $43 § Item List. thi 

3 em st, for now, request every ng. 
818 7 : . 
B18) $65 char_type = physical 
char_type = physica 

015 46 
015D 24 SENSETAB ch$c_ph_in_speed ; INPUT_SPEED 
9130 48 SENSETAB ch$c_ph_out_speed ; OUTPUT_SPEED CR 

15D 249 SENSETAB ch$c_ph-char_size ; CHARACTER SIZE ¢T 
015D 250 SENSETAB ch$c_ph_parity_enable ; PARITY_ENABLE cy 
015D 251 SENSETAB ch$c_ph_parity_type ; PARITY-TYPE CT 
015D 2¢ SENSETAB ch$c_ph_modem_present ; MODEM PRESENT CT 
015D = 25 SENSE TAB ch$c_ph_autobaud 3 AUTOBAUD DETECT CT 
0150 54 333 SENSETAB ch$c_ph_manage_guar ; MANAGEMERT_GUARANTEED CT 
015D 255 33; SENSETAB ch$c_ph_switchT ; SWITCH_CHAR_1 cT 
015D 256 33; SENSETAB ch$c_ph_switch2 ; SWITCH-CHAR-2 cT 
B20 of at SENSETAB ch$c_ph_manage_ena ; MANAGERENT_ENABLED et 
0130 39 char_type = logical et 
015D 261 SENSETAB ch$c_lg_mode_writing ; MODE_WRITING ALLOWED CT 
015D 6¢ SENSETAB ch$c_lg_term_bits : TERMINAL_TYPE CT 
015D 26 SENSETAB ch$c_lg_term_type ; TERMINAL SUBTYPE CT 
015D 64 SENSETAB ch$c_lg_output_ flow ; OUTPUT_FCOW_CONTROL CT 
015D 265 SENSETAB ch$c_lg_page_stop ; OUTPUT PAGE STOP cT 
015D 366 SENSETAB ch$c_lg_flow char_pass ; FLOW _CAAR PASS THRU cT 
015D 67 SENSETAB ch$c_lg_input_flow ; INPUT _FLOQ_CONTROL cT 
015D he: SENSETAB ch$c_lg_loss_notif ; LOSS_ROTIFICATION CT 
0150 269 SENSETAB ch$c_lg_line_width 3 LINE_WIDTH oC 
015D 270 SENSETAB ch$c_lg_page_length ; PAGE_LENGTH ER 
0150 = 271 SENSETAB ch$c_lg_stop_length ; STOP_LENGTH FL 
0150 38 SENSETAB ch$c_lg_cr_f7Ll : CRLFILL FO 
0150 27 SENSETAB ch$c_lg_lf_fill ; LFTFILL GE 
015D 274 SENSETAB ch$c_lg_wrap ; WRAP HO 
015D 275 SENSETAB ch$c_lg_hor_tab 3; HORIZONTAL_TAB IG 
015) 76 SENSETAB ch$c_lg_vert_tab ; VERTICAL_TAB IG 
1 28 of SENSETAB ch$c_lg_form_feed ; FORM_FEED in 
8120 79 char_type = cterm i 
$18p Ht SENSETAB onze ct ignore input ; IGNORE_ INPUT LF 
015D B see SENSETAB ch$c_ct_char_aft ; CHAR_ATTRIBUTES Ll 
015D 8 SENSETA ch$c_ct_ctrlo_pass ; CONTROL_O PASS_THRU LO 

15D 84 SENSETAB ch$c_ct_raise input ; RAISE_IRPOT LO 

15D 85 SENSETAB ch$c_ct_normal_echo ; NORMAC_ECHO MA 

15D 36 SENSETAB ch$c_ct_input_ésc ; INPUT _ESCAPE_ ENABLE MO 
3120 $83 SENSETAB chéc_ct_output. esc ; OUTPUT_ESCAPE_ENABLE MO 

15D 88 SENSETAB ch$c_ct_input_Ccount ; INPUT _COUNT_STATE NC 

15D 89 SENSETAB ch$c_ct_auto_prompt — ; AUTO PRO oc 

130 oy SENSETAB ch$c_ct_error_processing ; ERROR_PROCESSING ee 

15D 3 CTP$K_SENSEBUF == .-CTPSAB_SENSEBUF ; Size 00 
0150 929 00 
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15D 
0150 298 atiet meb 
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-SBTTL CT_POST_SENSE = Map TSA into VMS 


“> 
ow 
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AANA AAMA NAW AAAWNAWNAAAAAAA AN AA AAN AANA NAIAIAINI ANNA AAA AAA AANA 


v04-00 Page § 
SENSE .MAR; 1 (3) 


“Ono 
mn 
am 


CT_P 


: Must map entire set of characteristics returned into VMS sense mode data 


R - Address of CIP 
R9 = Address of H byte buffer 
R10 = Address of 8 byte buffer 


Output: 

) = first longword of sense mode data 

) = first longword of sense mode characteristics 
) = second longword of sense mode characteristics 


fo @Lfo-- 
a Ree 
zw wzD 
—-—- ovovo 


3 - first longword of status 
) = second longword of status 


Characteristics returned: (R9) 


Length 1 characteristics H 


a ae ee ee 


IOSB: (R10) 
teeceee- $eeeeene teoenee- ee + 


He speed! T speed! status H 


;~ % iparity iLF filli YR fills 


ey eee, ee ee 


D 
HAR_MSG:: ; RTPAD ENTRY 
re emma ; CTDRIVER ENTRY 


M ),R1 ; Fetch size of buffer 

C 25 ,R2 :; Set address of first characteristic 
- 3; Save end address on stack 

) 3 tee fudge, check this ** 
JIE 

“NO 


RM, TT_BUF (R9) Set terminal class 
RMAL TT “10SB(R10) : Set status 


oo oowow 
oOo j—Smo 


10$: 

Hit end of List yet? 
Branch if so 

Get parameter 

Get table address 


ee a ek ed nd od od oh od HD 
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= RTPAD/CTERM SET CHARACTERISTICS i os et 9 Og 11:38 AX/VMS Macro V04-00 Page 3 
CT_POST_SENSE = Map TSA into VMS -SEP-1984 214: RTPAD.SRCJCTDSENSE .MAR; 1 (3) 
1 5 208: 
~~ €6 «US 1 § CMPW B8 (R7)+ : poapere fo Ht entry 
go 1 1 BEQ 3 $ 3 Branch i pere® found 
a. 1 3 TSTW (R7)+ ; Advance pointer past routine 
fe... } 2 BGEQ 20$ ; Loop if greater than or equal to zero 
189 61 ; PANIC ; ‘invalid sense mode returned’ 
} 4 86 25$ MINOR_ERROR ; Increment error count, then exit 
8 B 4 D 64 TSTL (SP)+ ; throw away end address 
02c 1 ! F # BRW POST_SENSE_EXIT ; exit code 
018 $9 ; Dispatch to routine 
19 68 ; 
019 $9 S0s: 
EF 9€ 0Q19 0 MOVAB SENSE_ROUTINES,R6 ; Base 
67 3C 019 71 MOVZWL (R7),R7 : get routine address 
56 CO 019C i ADDL2  R6,R? 3; Add offset to base for routine address 
67 16 O19F 37 JSB (R?) : jsb to routine 
DO 11° O1A1 74 BRB 10$ ; Do next parameter 
BIA 75 
O1A 763 
8143 ue ; ALL these routines have RO,R1,R4,R6-R8 as scratch 
01A3 79 


F 13 
AD/CTERM a CHARACTERISTICS. i ot dt PS 06:11:38 AX/VMS Macro V04-00 Page 10 
ST_SENSE = Map TSA into VMS -SEP-1984 214: RTPAD.SRCJCTDSENSE.MAR; 1 (4) 
1A 1 SENSE_ROUTINES: 
1A ¢. 
A ? ; physical 
1A 5 INPUT_SPEED: ; physical 1 
50 82 80 OIA 6 MOVW —-(R2)#,RO : Get speed 
OF 1 1A BSBB GET SPE : pod ihto TT$C BAUD _xxxx 
03 AA 50 ay 1A } MOVB ,TT_10SB+3(R10) 3; set receive speed 
0 1AC RSB ; Return 
ia 3 OUTPUT_SPEED h : l 2 
s s a 
50 82 80 OIA 598 -"MOVW. (R204, RO : Bet speed 
0 1 189 9 BSBB  —s«GET_ SPEED : pod fhto TTSC _BAUD_xxxx 
02 A 50 90 O18 94 MOVB RO, 7T_10SB+2(R10) 3; set transmit Speed” 
05 8188 2 RSB 3; Return 
3187 + ; Local routine to map speed into TI$C_BAUD rates 
0187 99 ; Input: 
01B7 400 : RO - baud rate in BPS 
0187 401; 
01B7 rt ; Output: 
0187 40 : RO - Baud rate in TT$C_BAUD_xxx terms 
01B7 404 
0187 405 GET_SPEED: 
51 FEDB CF 9E O1B7 406 OVA SENSE_BAUD,R1 ; Get table 
01BC 407 110$: 
81 50 B1 O18C 408 CMPW RO,(R1)+ 3; compare 
08 15 O1BF 409 BLEQ 126 
81 95 O1C1 410 TSTB (R1)+ ; Advance 
i, te Oey See BNEQ 110$ : Branch if not 
50 10 90 01C5 ls MOVB #TT$C_BAUD_19200,R0 : Assune 19200 if’ 4 ° 19200 
05 01C8 41 RSB ; Retur 
50 61 90 O1C9 414 120$:  MOVB (R1),R0 3 Fetch "beud rate symbol value 
05 O1CC 415 RSB 3; Return 
01CD 416 
01CD 417 CHARACTER_SIZE: : physical 3 
O1CD 418 .IF DF RTPAD 
00008000 8F CA Bice 419 #TT$M_EIGHTBIT,- . 
04 Ad 01D 420 TT_CHAR1(R9) ; Set characteristic 
0105 421 .ENDC 
82 O07 B61 OS 4 § CMPW #7, (R2)+ ; Character size 
08 18 0108 4 BGEQ 10$ ; exit if less than or equal to 7 
00008000 8F c8 3iDA 424 BISL #TTS$M_EIGHTBIT,- 
04 Ad 1E 425 TT_CHAR1(R9) ; Set characteristic 
05 HE ? § 10$ RSB ; Return 
1E 428 PARITY_ENABLE: 3 physical 4 
1E 429 .1F DF -RTPAD 
40 8F 8A OIE 430 BICB #TTS$M_PARITY,- 
06 AA 166 4 1 Sei TT_105B+6(R16) : Set parity enabled 
50 8¢ 9 168 4 5 MOVB (R2)+,RO ; Get boolea 
05 f 1EB 9-434 BLBC = RO, 108 | Grench 17 net enabled 
40 BF 8B IEE 435 BISB #Tt$M_PARITY,- 
06 AA 1F 4 § TT_105B+6(R16) ; Set parity enabled 
OS OWS 437 10% RSB 3; Return 
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v04-0 CT_POST_SENSE = Map TSA into VMS -SEP=-1984 214: RTPAD.SRCJCTDSENSE .MAR; 1 
1F4 $38 
1F4 439 PARITY_TYPE: : physical 5 
1F4 440 .IF DF RTPAD 
80 8F BA 1F4 = 441 BICB #TTSM 
06 AA 1F7 re) TT 10SB+6(R10) ; Assume even parity 
1F9 §=94435 .ENDC 
50 8 3C O1F9) = 444 MOVZWL (R2)+,R0 3; Get parity number 
50 0 Bi O1FC 445 CMPW #ensc. ‘sorte, odd,R0O ; Odd? 
ig 1FF ret BNEQ 10$ 3; If not, exit 
80 8F 8 8 01 44 BISB #TT$M 
06 AA 04 448 TT 10SB+6(R10) ; Set odd parity 
05 8 88 449 10S: RSB 3; Return 
450 
0207 451 MODEM Pe 3; physical 6 
0207 $26 IF DFR 
04 A9 00202000 BF CA 0207 45 #<TTSM_MODEM 
O20F 454 TTSM SREMOTED, IT _CHAR1(R9) ; Set modem and remote bits 
O20F 455 .ENDC 
50 82 020F 128 MOVB (R2)+,R0 ; Get Boolea 
08 50 = =2—«E9 8 \ 45 SLBC 3; Branch if nat enabled 
04 A9 00202000 8F 31 458 BISL  #<TTSM_MODEM 
0210 459 TTSM_ REMOTES: TT -CHAR1(R9) Set modem and remote bits 
05 021D 460 108:  RSB ; heturn 
O21E 461 
OSiE 186 AUTOBAUD_DETECT: 3; physical 7 
O21E 463 .IF DF RTPAD 
02 CA bs ie 464 TT ena BUISSAUD 
08 Ad bs6 465 HAR2(R 3; Set autobaud 
0 § 466 .ENDC 
50 82 90 0 467 MOVB cna) RO ; Get Boolea 
04650 €9 O22 468 BLBC RO, 10$ ; Branch if. nat enabled 
02 CB 0228 469 BISL  #Tf2$M_AUTOBAUD,- 
08 A9 0 SA 470 TT_CHAR2(R9) ; Set autobaud 
05 8 s¢ $2 10$: RSB : Return 
022D 13 MANAGEMENT GUARANTEED: ; pays ical 8 
50 82 90 022d 474 mole (R2)+,RO ; Get Boolean 
00 50 =«E9 if g 475 RO. 108 3; Branch if nat enabled 
05 O 476 108: 3; Return 
Ose 477 
4 478 SWITCH_CHAR_1: i phys 
0217 30 0234 479 BsB0 IGNORE _STRING : ignore oats string data 
05 0237 cB RSB 3; Return 
0238 4 § SWITCH_CHAR_2: 3 veces 10 
0213 30 02 48 BsBQ IGNORE _STRING : Ignore this string data 
05 OS tee RSB : Return 
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BLBC ~—_—- RO, 10 
RSB 


TERMINAL _TYPE: 
3; bit mask is: 
; 0 


MOVZWL (R2)+,R0 
BISL 


B 
BICL #TTSM_SCOPE 


POPOPIPONIPONIPUPONPoNoNofnonyd: 


PPP PRN Ree Rt ee ERPS SS BR SE Ht eee 
MNDOOW SF PP POWMA OODOWWIWNPIIM DD & FP OPM OOWWIWWWWWWWWIAAIWAIPITMOOOO 


MOVL R2,R7 : 
ADDL2 R6,R2 : 
PUSHR  #*M<R2,R3,R10> : 
MOVAB CTSAB_TERM_TABLE,R8 ; 
CLRL = RG : 
ADDL2 R4,RB : 
MOVE (R8)+,TT_BUF+1(R9) : 
BEQL 308 : 
MOVZBL (R8)+,R4 : 
CMPBeR6,, RG : 
BNEQ 208 ; 
CMPC3 R6 (R7), (RB) : 
BNEG 208 : 


SOOO OCOOCOOOSOOOCO OOOO OOOSOSOOGOCOOOCOOCSCSCOOOSCOOCOOO OOOO OOOOOOOOOOoOO 


COON 3s 


H 13 


ET CHARACTERISTICS 1gngee=13 4 8 711 
Map TSA into VMS - :14 


logical 
ODE_WRITING_ALLOWED: 
MOVB 


EP=1984 


(R2)+,R0 


= Unknown/known 
1 = scope/hardcopy 


#TTSM_SCOPE,- 
TT_CHAR1(R9 

Bs #CTPS$V_CH_SCOPE,RO,10$ 
TT_CHAR1(R9S 


3 *ee Unknown? 


BBS #CTPSV_CH_KNOWN,RO,208_ ; 
MOVB #TTS$_UNKNOWN, TT. BUF +1 (R95 


3; Terminal type match 


ASSUME TTS_UNKNOWN EQ 0 ; 
POPR #*M<R2,R3,R10> ; 
RSB : 
LOW. CONTROL: : 
TPAD 


; Set terminal type 


; Get Length 
; compare Lengths 
; pot equal, loop 


} 
38 AX/VMS Macro V04-00 Page 12 | 
: RTPAD.SRCJCTDSENSE.MAR; 1 (5) 


legical 1 

Get Boolean 

Branch if not enabled 
Return 


logical 2 


Get characteristic 


; Set scope 
; Branch if scope 


Branch if known 
; Set terminal type 
eturn 


logical 3 } 
Get length of string 
Continue if not 0 
Return 


; Get address of string 
; Update pointer 


Save registers 


; Address of table 
; Zero Length 


; Get next entry 


branch if end of List 


; Compare 
; Loop if not equal 


assume for end of table code 
Restore registers 


; Return 


logical 4 


Clear scope 
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I 13 
M SET CHARACTERISTICS 16-SEP-1984 02:11: AX/VMS Macro v04-00 Page 1 
E = Map TSA gre 1382 8g: 41:38 FRIPAD. SRe CTDSENSE .MAR; 1 . 3) 
20 CA 029 44 BICL #TT$M_TTSYNC,- 
04 9 $8 t2 snot TT_CHAR1(R9) ; Set tt sync 
50 B¢ 4 9A 23 : MOVB (R2)+,R0 ; Get Boolean | 
04 E 90 48 BLBC = RO, 10 : Branch if not enabled 
20 (8 Ap 4 BISL #Tf$M_TTSYNC,- | 
04 A9 A 29 TT_CHAR1(R9) ; Set tt sync 
05 ~ 2] 10$: RSB ; Return 
n 24 OUTPUT_PAGE_ STOP: ; logical 5 
O2A 54 .IF DF-RTPAD 
a er wis 8 v4 336 nice PTT SH HOLDS CREEN.~ ; Set hold screen 
50 90 8 AD 23h —_— MOVB (ne) RO Get Boolean 
08 8¢ E9 0 80 559 BLBC —sRO, 10 : Branch if not enabled 
00004000 8F C8 0283 560 BISL #TT$M_HOLDSCREEN,- 
04 Ad 0289 561 TT_CHAR1(R9) ; Set hold screen 
05 6 BB 26¢ 10$: RSB : Return 
50 8290 SBE Sg COM MCHAR TASS. THRU: | 20 bY Secices 
.- ve 
00 50 Eg He 366 ‘aii BLBC RO, 10$ : Branch if not enabled 
02c3 568 i 
age 569 INPUT_FLOW CONTROL: : logical 7 
02C¢ 570 .IF DF RTPAD 
10 CA 02c3 571 BICL  #TTSM_HOSTSYNC,- 
04 Ad 02¢3 378 aa TT_CHAR1(R9) ; Set hostsync 
50 02¢7 574° MOVB = (R2)+,RO : Get Boolean 
04 8¢ —9 osek 575 BLBC RO, 10$ : Branch if not enabled 
10 02CD 276 BISL #TT$M_HOSTSYNC,- 
04 A9 O2cF 57 TT_CHAR1(R9) ; Set hostsync 
05 8 pt 278 10$: 8SB : Return 
50 82 90 OSpS Shy LOSS ANOT LEI EAT ION: «ye. RO TS 
om Bee thi, Be Te : Betton’ loss‘ astat 
0209 584 : 
8 D9 388 LINE_WIDTH: ; logical 9 
02 a9 =: B2 80 9 35 movu (R2)+,TT_BUF+2(R9) ; Line width 
DE , 
DE iH PAGE_LENGTH: ; logical 10 
07 a9: B2. 33 D 390 CVTWB = (R2) +, TT_CHAR1+3(R9) Page Length 
E 9 2 
E 38 STOP_LENGTH: ; logical 11 
oc ie ae as ie 
& 59 ; 
E6 39 CR_FILL: ; logical 12 
00000400 8F CA Ee 39 ao Raree #TTSM_CREILL 
04 A9 2—C 600 TT CHRRT (ROD 
| 
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CTSETRT = RTPAD/CTERM SET CHARACTERISTICS 16-SEP-1984 211: AX/VMS Macro V04-00 Page 
v04-000 CT_POST_SENSE = Map TSA into VMS -SEP-1984 Bg: 14:38 RTPAD.SRCJCTDSENSE .MAR; 1 ° 
EE 601 .ENDC 
04 AA og i3 EE ° § eye al ately 5 haf 
: Branc zero 
00000400 8F C FE = =604 BISL #TTSM err Abo 
04 A9 FA 605 TT_CHAR1(R9) 
05 rE. C«‘G § 10$: RSB ; Return 
FD 660 
FD ons LF_FILL: ; logical 13 
FD 609 .IF DF RTPAD 
00000800 8F CA 0 fe 610 BICL #TTSM_LFFILL,=- 
04 Ad 6 0 oi] net TT_CHAR1(R9) 
OS AA Be 33 303 8 CVTWB (R2)+,TT_10SB+5(R10) 
0 13 0309 614 BEQL 10$ ; Branch if zero 
00000800 8F C8 0308 615 BISL #TTSM_LFFILL,- 
04 A O31] 616 TT_CHAR1(R9) 
05 8 13 } 10$: RSB ; Return 
nae $19 WRAP: ; logical 14 
0314 620 .IF DF RTPAD 
00000200 8F CA 0314 621 BICL #TTSM_WRAP,=- 
04 A9 O31A 6 : TT_CHAR1(R9) ; set wrap 
031C 623 .ENDC 
82 03 B1 O31C 624 CMPW #3,(R2)+ ; Get_wrap (value 1 to 4) 
08 18 O31F 625 BGEQ 10$ ; if 3 or less, no wrap 
00000200 8F C8 0321 626 BISL #TTSM_WRAP,- 
04 Ad 0327 627 TT_CHAR1(R9) ; set wrap 
05 0329 628 10$: RSB ; Return 
032A 629 f 
8 A 630 HORIZONTAL_TAB: ; logical 15 
032A 631 .IF DF RTPAD 
00000100 8F CA 032A O36 BICL #TTSM_MECHTAB,- 
04 Ad 0330 63 TT_CHAR1(R9) ; Set mechtab 
033 634 .ENDC 
82 01 B61 ba¢ 635 CMPW #1,(R2)+ : mechtab? 
i oo 636 BNEQ 10$ ; Branch if no 
00000100 8F C8 0337 o37 BISL #TTSM_MECHTAB,- 
04 Ad base 638 TT_CHAR1(R9) ; Set mechtab 
05 83 F 639 10$: RSB ; Return 
0340 640 
0340 641 VERTICAL_TAB: : logical 16 
82 BS 034 a) TSTwW (R2)+ : ignore 
05 0 r oh? RSB ; Return 
32 645 FORM_FEED: ; logical 17 
4 646 .IF BF RTPAD 
00080000 8F CA 4 647 BICL #TTSM_MECHFORM,- 
04 Ad 4 648 TT_CHAR1(R9) ; Set mechform 
48 649 .ENDC 
82 01 B61 48 650 CMPW #1, (R2)+ ; mech form? 
08 if 4 651 BNEQ 108 : Branch if no 
00080000 8F C 5 $36 BISL #TTSM_MECHFORM,- 
04 A9 3 65 TT_CHAR1(R9) ; Set mechform 
05 0 654 10$ RSB ; Return 


a 
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= RTPAD/CTERM SET CHARACTERISTICS 16-SEP-1984 02:11: AX/VMS Macro v04-00 i 
CT_POST_SENSE = Map TSA into VMS toe og: 4h:38 YRIPAD SRe CTDSENSE.MAR; 1 re 
: $36 3 cterm 
658 IGNORE_INPUT: 3; cterm 1 
50 8¢ 90 9 rat: * MOVB (R2)+,RO : Get Boolean 
00 £9 3 660 BLBC ~=—_ RO, 10 : Branch if not enabled 
5 2h 96) 10$: RSB ; Return 
? ees CHAR_ATTRIBUTES: 3; cterm 2 
° $8? IF DF RTPAD 
50 oo00ggoo" tr 9E 8 6 es? OVA OUTBAND_NEW,RO ; Get temporary mask 
1 9A 6 rt: MOVZBL (R2)+,RT : get character 
28 8 9A 8 6A 66 MOVZBL (R2)+,R6 ; Get mask 
5 8 9A $98 670 MOVZBL (R2)+,R7 3; Get attribute 
00 54 81 «ES O87 Oo SESS RTLRG, SS E Soon ahabartes inth cask 
oR4, 3; turn character into mas 
O36 | 6r8 58: : ’ 
00 EF 0376 674 EXTZV #CTP$V_CH_00,- 
58 56 4 te 675 #CTP$S_CH_00,R6,R8 ; Fetch isolate mask 
58 0 91 0378 676 CMPB #CTPSM_CH_00,R8 3; Must be full mask 
SF O12 tt; ert BNEQ 100$ 3; exit *** = other things to handle here 
00 EF 038 679 EXTZV #CTP$V_CH_00,- 
58 57 02 038 680 #CTP$S_CH_00,R7,R8 ; Fetch attributes 
58 00 91 038 681 CMPB #CTPSC_CH_CANCEL,R8 ; Cancel? 
OE 12 0388 one BNEQ 10$ ; br if no 
04 AO 54 CA 038A 68 BICL R4,00B_EXCLUDE (RO) ; clear them all... 
OC AO (54 CA b355 684 BICL R4,00B_ INCLUDE (RO) 
14 AO 54 CA 039 685 BICL R4 ,00B_ABORI (RO) 
27 «11 «0396 686 BRB 106$ 
0398 687 10$: 
58 O01 91 0398 688 CMPB #CTPSC_CH_ICLEAR,R8 ; immediate clear? 
05 13 0398 689 BEQL : br if yes 
58 02 91 039D 690 CMPB #CTPSC_CH_DCLEAR,R8 : deferred clear? 
06 12 Q3A0 691 BNEQ 30$ : br if no 
O3A 692 20$: 
03A 69 
BRA $38 3 set up abort out of band 
1400 54 CB $345 696 BISL  R4,00B_ABORT(RO) : Set abort flag 
17. (11 O3A6 697 BRB 106$ 
03A 698 30$: 
58 03 91 O3A8 699 CMPB = HC TPS$C_CH_HELLO,R8 ; hello? 
1 12 Q3AB 00 BNEQ 1 : no, (sanity check really) | 
OA 56 0 E1 AD 701 BBC Oe TPEY CH} RG. 608 ; Branch if include not specified 
06 57 9 E1 1 86 BBC #CTP$V_CH_1,R7,40$ ; Branch if include not required 
OC A 4 (8 . eae BISL R4,00B~ INCLUDE (RO) : Set include bit 
oo 11 9 704 BRB 106$ 
BB 705 40$: ; 
04 AO 54 c8 : § BISL R4 ,00B_EXCLUDE (RO) ; set exclude bit 
ef 792 ; Handle out-of-band discard (D) 
BF 709; 
F 710 1008: 
OC 56 93 E1 BF 711 BBC #CTPSV_CH_D,R6,2008 : Skip if not in select mask 
18 AO 4 CA C3 «712 BICL R4,00B-DISCARD(RO) 3; Assume no discard output 
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CTSETRT = RTPAD/CTERM SET C HARACTERISTICS" 16-SEP =1386 oe:1} +38 AX/VMS Macro V04-00 Page 16 
v04-000 CT_POST_SENSE = Map TSA into VMS -SEP-19 RTPAD.SRCJCTDSENSE.MAR; 1 (6) 
04 57 93 E1 C7? =— 713 BBC #CTPS$V_CH_D,R7,2 e008 ; Skip if not in select mask 
18 AO 4 C8 (CB «714 BISL R4,00B_ “DISCARD(RO) 3; Set discard output 
tf {2 200$: 
cr at ; Handle control character echoing (EE) 
04 EF CF 8 ' EXTZV ecTPsy V_CH_EE,- 
58 656 ¢ Di 720 #CTP$S_CH_EE,R6,R8 3; Fetch isolate mask 
58 0 2 8 D4 721 CMPB #3,R8 ~ : specified? 
17, 12 «0307 «7 é BNEQ 3 6s : nope 
1 AO) 3654~—COCCA 9 «67 BICL R4 ,00B_ECHO(RO) 3 assume no echo (like “T) 
04 EF O3DD 724 EXTZV actPsy CH -fE.= 
56 57 3 DF 725 #CTP$S_CH_EE,R7 3; Fetch real data 
58 00 «91 «2O8E2 7 é CMPB Os #CTPSC“CH FE AGNONE, R8 echo none? 
09 13 O3E 7 BEQL yes, cont inue 
58 02 91 O3E7 728 CMPB #CTPSC_CH_ECHOSTANDARD RB 3 echo STANDARD? 
04 if ttt 729 BNEQ 300$ : branch if oth 
1c AO 3654 6 «€6©C8 «COSEC) =O 730 BISL R4,00B_ECHO(RO) 3; set standard echo” (Like “*C) 
oaF8 fa) 300$: 
O3FO 7 4 ; *** code not done for: 
bach : 3 enable/disable special character (F) 
05 O3ro f § RSB 3 Exit 
bari 738 oIFF ; CTDRIVER 
O3F1 740 ADDL #3,R2 ; Skip (should never really get here) 
O3F1 741 RSB 
O3F1 oe 
Be Hi sec 
0O3F 1 745 CONTROL_O_PASS_THRU: 3 cterm 3 
50 82 90 oe] 746 mOvB (R2)+,R0 3; Get Boolea 
0050 £9 O3F4 747 BLBC ~=—_ RO, 10 S Branch {1 net enchied 
05 bare oe 10$: RSB 3; Return 
bate £30 wy ett 3 cterm 4 
00000080 8F CA O38 138 ; BICL #TTSM_LOWER,- 
04 Ad te £3 p= T_CHAR1(R95 3; Set convert lower 
50 $e 90 040 755 MOVB (R2)+,RO0 3; Get Boolean 
08 50 £8 04 136 BLBS RO,10$ : Branch if not enabled 
00000080 C oe 5 Ff BISL #Tf$M_LOWER,- 
04 Ad 40C 758 TT_CHAR1 (R95 ; Set convert lower 
05 rt O32 10$: RSB ; Return 
40F 761 NORMAL_ECHO: 3 cterm 5 
40F 762 .IF DF-RTPAD 
CA O40F 76 BICL #TT$M_NOECHO,- 
oi eee ane TT_CHAR1(R9) ; Set noecho 
9 413 766 MOVB = (R2) +, RO : Get Boolea 
8 £18 76 BLBS RO, 10$ ; Branch if “enabled (note opposite sense) 
(8 041 768 BISL #Tf$M_NOECHO,- 
41B 76 TT_CHAR1(R9) ; Set noecho 
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CTSETRT = RTPAD/CTERM SET CHARACTERISTICS 16-SE 211 AX/VMS Macro V04-00 Page 17 
v04-000 CT_POST_SENSE = Map TSA into VMS g- ser 7 8g 1] 214: 3 RTPAD.SRCJCTDSENSE.MAR; 1 . (6) 
05 rt 779 10$: RSB 3; Return 
41E ah INPUT_ESCAPE_ENABLE: 3; cterm 
41E 773 OUTPUT_ESCAPE_ENABLE: ; cterm 
41e 774 .IF DF RTPAD ~ 
08 CA 041 775 BICL #TTSM_ESCA 4 
04 Ad ri ae ENDC | _CHARI(R 
50 §¢ 90 04 778 MOVB (R2)+,R0 3; Get Boolean 
04 E9 04 779 BLBC RO, 10$ 3; Branch if not enabled 
08 ¢B8 0428 780 BISL atte ESCAPE,- 
04 A9 4eA 781 T_CHAR1(R9) 
05 m 4 ¢ 10$: RSB 3 Return 
4 
42D 784 INPUT_COUNT STATE: 3: cterm 8 
82 BS 042D 785 TST@ (R2)+ : Ignore 
05 re 6 f § RSB 
430 788 AUTO_PROMPT: 3; cterm 9 
430 789 .IF BF RTPAD 
00000040 8F CA 0430 790 BICL #TTS$M_SCRIPT,=- 
04 Ad 0436 86791 TT_CHAR1(R9) 
0438 792 .ENDC 
50 2 90 Be 8 79 MOVB (R2)+,RO : Get Boolean 
08 50 £9 0438 79% BLBC =—_- RO, 10 : Branch if not enabled 
00000040 8F CB 043E 795 BISL #TT$M_SCRIPT,- 
04 Ad 0444 796 TT_CHAR1(R9) 
05 0446 £797 10$: RSB ; Return 
0447 798 
50 82 90 eee B00 RCE S SING: 2)+-RO oy 5 
3; Get Boo 
00 50 £9 044A 801 BLBC ~—_ RO, 108 S Branch i? set enabled 
0S 0440 02 10$: RSB 3; Return 
44E + 
044E 04 
044E 805 IGNORE eo 
50 82 9A 044E ong tly (R2)+,RO : Get Length of string 
52. 50 CO 0451 07 DL2 RO,R2 3 Add to address 
05 0454 808 
0455 809 
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CTSETRT 
Symbol table 
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nec or mcuc NM euCUCUCUCUCUCUCUCUCUCUCUN Cur fury 
oO o 
ca ca eco @ @waancaeaacacacaacae cacoaocee 


SCOPE 
PARAM 
GSIZE 


MSG 
A 


OL_O_PASS_ THRU 


mile: 
CR_FILL 
SAB_TERM_TABLE 
“CH 
“et 
Rr 
ER 
PROCESSING 
ia 


— 
v 
ud 
— 
us 
o 
ao 
2 
z 
5 
< 


CTERM 

CTPSC 

CTP$V 

CTPS$W 

CTPSW 
$ 


CT 
oc 


CHAR 
CONT 
CT 
CH 
T 
ERROR 
FLOW_ 
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CTSETRT = RTPAD/CTERM SET CHARACTERISTICS 19-SEP-1984 09:11:58 AX/VMS Macro V04-00 Page 20 
Symbol table =SEP=-1984 03:14: RTPAD. SRCICTDSENSE .MAR; 1 (7) 
TT$_LA24 2 
TT$_LA34 = 
TT$_LA36 = 
TT$_LA38 = 
TT$_LaPO2 = 00 
TT$S_UNKNOWN = $ 
TT$_VK100 = 99000 
TT$_VT05 = 00000001 
TT$_VT100 : 00 0060 
TT$_VT101 = 000 9 61 
TTS-vTI08 = 90900088 
TT$-VT125 = Matdante 
TT$_vT131 = 90000065 
TT$_VT1 : = 0000 066 
TT$S_VT17 = 0000000 
TT$-VT200_ SERIES : 9000006 
TT$_VvT : = 0000004 
TT$-V15 = 00000041 
TT2$M_AUTOBAUD = 00000002 
TT_BUF = 00000000 
TT-CHAR1 = 00000004 
TT~CHAR2 = 00000008 
TT-10SB = 00000000 
UCB$wW_ERRCNT = aaa set 

N_T 00000155 R 02 
VERTICAC_TAB 00000340 R 02 
WRAP 00000314 R 02 


PSECT name Allocation PSECT No. Attributes 
00000000 ( 0.) OO ¢ OQ.) NOPIC USR CON ABS LCL 
00000000 < 0.) O1¢ 1.) NOPIC USR CON ABS aie 


. . OSHR NOEXE NORD NOWRT NOVEC BY 
SABSS SHR EXE RD WR 
RTPAD 00000456 ( 1110.) 02 ¢ 2.) NOPIC USR CON REL 


TE 
T NOVEC BYTE 
OSHR EXE RD NOWRT NOVEC BYTE 


222 
o 


$eewccoceesseesoeeeseesoce 


Phase Page faults CPU Time E 


~ 
oa 
co 
yw 
. @ 
a 
_" 
te 
3 
@ 


Initialization 3 0:00:00.03 0:00:01 .37 
Command processing 123 8: 0:00.59 0:00: ¢: 7 
Pass 412 :00:10.10 0:00:38.48 
Symbol table sort 4 0:00:01.74 8: 0:05.09 
Pass 2 143 0:00:02.19 :00:11.07 
Symbol table output 17 0:00:00.11 0: 0 +O 
peect synopsis cutout | 6 00:00:00.02 $228: 0:00 
ross-reference outpu :00:00. :00:00. 
Assembler run totals 73 88 8:90.98 $b 0035 .01 


ihe working set Limit was 1800 pages. 
87574 bytes (172 pages) of virtual memory were used to buffer the intermediate code. 


D 14 
- RTPAD/CTERM SET CHARACTERISTICS 


CTSETRT 1 mit 0g: 3k yA 
VAX=11 Macro Run Statistics -SEP-1984 


There were 90 pages of symbol table , Space al at d to hold 1619 ine 43 local symbols. 


16 source Lines were read in Pass 1  bradue ng} object records in Pass 
19 pages of virtual memory were used to detin e 18 macros. 


Macro Library name Macros defined 


gcepuacs :CRTPAD.OBJIRTPAD.MLB; 1 ‘ 
noe: SYS.OBJJLIB.MLB 31 

S5EDUA SYSL TBISTARL ET.MLB;2 8 

732538 (all Libraries) 11 


1655 GETS were required to define 11 macros. 
There were no errors, warnings or information messages. 


¥04-00 ° 1 
D SRCTCTDSENSEomaR;1 29° 2}, 


MACRO/LIS=LIS$:CTSETRT/OBJ=OBJ$:CTSETRT MSRC$:CTSETRT/UPDATE=(ENHS:CTSETRT) +MSRC$: CTDSENSE/UPDATE=(ENH$: C TDSENSE) +EXECML$/LIB+LIB$:R 
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